home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / zwischen.lsp < prev    next >
Text File  |  1998-03-15  |  1KB  |  44 lines
  1.  2. Zeile gibt an, welche Werte abgefragt werden müssen
  2.    (setq ZEILE (read-line AIT-da))
  3.    (setq LAENGE (strlen ZEILE)
  4.          WZ2 1
  5.          chrct 1
  6.    )
  7.    (while (< WZ2 LAENGE)
  8.          (if (/= ";" (substr ZEILE WZ2 1))
  9.                  (setq chrct (1+ chrct))
  10.                  (setq Tliste (substr ZEILE (1+ (- WZ2 chrct)) (1- chrct))
  11.                        Liste (append Liste (list Tliste))
  12.                        chrct 1
  13.                  )
  14.          );if
  15.    
  16.          (setq WZ2 (1+ WZ2))
  17.    );while
  18.    (setq Tliste (substr ZEILE (1+ (- WZ2 chrct)))
  19.          Liste (append Liste (list Tliste))
  20.    )
  21.  setzen der Variablen
  22.    (mapcar 'set '(AIT_a AIT_b AIT_c AIT_d AIT_c) Liste)
  23.    (setq Liste nil)
  24.  
  25.    (if (= AIT_a "A")
  26.       (progn
  27.             (EAITmsg "mb-mld1" "\n" "005" " <")(princ AIT_a)(princ "> ")         
  28.             (initget (+ 2 4))
  29.             (setq EAITwa (getdist " "))
  30.             (if (= EAITwa nil)(setq EAITwa EAITlpr))
  31.             (setq EAITlpr EAITwa)
  32.       )
  33.    )
  34.    (if (= AIT_b "B")         
  35.       (progn
  36.             (EAITmsg "mb-mld1" "\n" "005" " <")(princ AIT_b)(princ "> ")         
  37.             (initget (+ 2 4))
  38.             (setq EAITwb (getdist " "))
  39.             (if (= EAITwb nil)(setq EAITwb EAITlpr))
  40.             (setq EAITlpr EAITwb)
  41.       )
  42.    )
  43.  
  44.